home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 4 / 004.d81 / planet program (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  847b  |  35 lines
  1. 5 ifx=0thenx=1:load"sprite data",8,1
  2. 10 print"[147]":poke56,64:poke52,64:clr:b=87
  3. 15 poke53280,0:poke53281,0
  4. 20 v=53248:poke2041,223:pokev+40,2:pokev+41,7:pokev,100:pokev+1,100
  5. 25 pokev+16,2
  6. 30 pokev+21,3:pokev+39,14:pokev+38,6:pokev+37,1
  7. 40 pokev+28,255:pokev+3,104
  8. 50 fort=0to20:x=int(rnd(1)*999)+1:poke1024+x,46:poke55296+x,1:next
  9. 60 x=222
  10. 70 poke2040,x
  11. 90 x=x-1:ifx=199thenx=222
  12. 150 b=b-3:o=o+1
  13. 151 ifb<0thenpokev+16,0:b=255
  14. 152 ifo/2=int(o/2)thenp=223
  15. 153 ifo/2<>int(o/2)thenp=224
  16. 160 pokev+2,b
  17. 161 poke2041,p
  18. 170 ifpeek(v+30)>0then200
  19. 180 goto70
  20. 200 pokev+21,1:pokev+2,0
  21. 210 fort=225to240:poke2040,t
  22. 220 forx=0to100:next
  23. 230 next
  24. 240 pokev+21,0:x=peek(v+30)
  25. 250 poke783,peek(783)and254:poke781,23:poke782,13:sys65520:print"<press a key>"
  26. 260 poke198,0:wait198,1
  27. 270 print"[147]want to see it again? (y/n)":poke198,0:wait198,1:getz$
  28. 280 ifz$<>"y"andz$<>"n"then270
  29. 290 ifz$="y"then10
  30. 300 :
  31. 305 restore:poke56,160
  32. 306 forx=0to7:poke53276,peek(53276)and(255-2^x):next
  33. 310 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  34. 320 poke631,13:poke632,13:poke198,2:end
  35.